home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Src / wstk.c < prev   
Encoding:
C/C++ Source or Header  |  1996-07-21  |  1.9 KB  |  65 lines
  1. /******************************************************************************
  2.  *
  3.  * w s t k . c
  4.  *
  5.  * Copyright ⌐ 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
  6.  * 
  7.  *
  8.  * Permission to use, copy, and/or distribute this software and its
  9.  * documentation for any purpose and without fee is hereby granted, provided
  10.  * that both the above copyright notice and this permission notice appear in
  11.  * all copies and derived works.  Fees for distribution or use of this
  12.  * software or derived works may only be charged with express written
  13.  * permission of the copyright holder.  
  14.  * This software is provided ``as is'' without express or implied warranty.
  15.  *
  16.  * This software is a derivative work of other copyrighted softwares; the
  17.  * copyright notices of these softwares are placed in the file COPYRIGHTS
  18.  *
  19.  *
  20.  *           Author: Erick Gallesio [eg@unice.fr]
  21.  *    Creation date: 12-May-1993 10:34
  22.  * Last file update: 21-Jul-1996 11:50
  23.  *
  24.  ******************************************************************************/
  25. #define STK_MAIN
  26.  
  27. #include <dos.h>
  28. #include <locale.h>
  29. #include "stk.h"
  30. #include "tkWinInt.h"
  31.  
  32. void WishPanic _ANSI_ARGS_(TCL_VARARGS(char *,format));
  33.  
  34. int APIENTRY WinMain(HINSTANCE hInstance, 
  35.               HINSTANCE hPrevInstance, 
  36.               LPSTR lpszCmdLine, 
  37.               int nCmdShow)
  38. {
  39.   char **argv;
  40.   int argc;
  41.  
  42.   /* Set up the default locale to be Windows ANSI character set.  */
  43.   setlocale(LC_ALL, "");
  44.   
  45.   Tcl_SetPanicProc(STk_panic);
  46.  
  47.   argv = (char **) STk_Win32_make_argc_argv(lpszCmdLine, &argc);
  48.  
  49.   TkWinXInit(hInstance);
  50.   
  51.   /*
  52.    * Increase the application queue size from default value of 8.
  53.    * At the default value, cross application SendMessage of WM_KILLFOCUS
  54.    * will fail because the handler will not be able to do a PostMessage!
  55.    * This is only needed for Windows 3.x, since NT dynamically expands
  56.    * the queue.
  57.    */
  58.   SetMessageQueue(64);
  59.   
  60.   STk_toplevel(argc, argv);
  61.   return 0;
  62. }
  63.  
  64.  
  65.